home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_VB / COMPDEM.ZIP;1 / COMPRESS.BI < prev    next >
Encoding:
Text File  |  1993-01-26  |  4.7 KB  |  129 lines
  1. '-----------------TYPE Structures------------------------------------------
  2.  
  3.     TYPE CentralDirRec              'Structure used by the EtZipDirLong routine
  4.         Signature   AS LONG
  5.         CreationOS  AS INTEGER
  6.         ExtractVer  AS INTEGER
  7.         GenPurFlag  AS INTEGER
  8.         Method      AS INTEGER
  9.         FTime       AS INTEGER
  10.         FDate       AS INTEGER
  11.         Crc32       AS LONG
  12.         CompSize    AS LONG
  13.         UnCompSize  AS LONG
  14.         FilNamLen   AS INTEGER
  15.         ExtraFldLen AS INTEGER
  16.         CommentLen  AS INTEGER
  17.         DiskNumStrt AS INTEGER
  18.         IntFilAttr AS INTEGER
  19.         ExtFilAttr AS LONG
  20.         LocalHeader AS LONG
  21.     END TYPE
  22.  
  23.     TYPE LhaDirRec                  'Used by the EtLhaDirLong routine
  24.         HeaderSize  AS STRING * 1
  25.         CheckSum    AS STRING * 1
  26.         Method      AS STRING * 5
  27.         CompSize    AS LONG
  28.         UnCompSize  AS LONG
  29.         FTime       AS INTEGER
  30.         FDate       AS INTEGER
  31.         FilAttr     AS INTEGER
  32.         FilNamLen   AS STRING * 1
  33.         Crc16       AS INTEGER
  34.     END TYPE
  35.  
  36.     TYPE ArjDirRec
  37.         Signature   AS STRING * 2   'Used by the EtArjDirLong routine
  38.         HeaderSize  AS INTEGER
  39.         F           AS STRING * 1
  40.         CompressVer AS STRING * 1
  41.         ExtractVer  AS STRING * 1
  42.         CreationOS  AS STRING * 1
  43.         GenPurFlag  AS STRING * 1
  44.         Method      AS STRING * 1
  45.         FileType    AS STRING * 1
  46.         Reserved    AS STRING * 1
  47.         FTime       AS INTEGER
  48.         FDate       AS INTEGER
  49.         CompSize    AS LONG
  50.         UnCompSize  AS LONG
  51.         Crc32       AS LONG
  52.         FilNamStart AS INTEGER
  53.         AccessMode  AS INTEGER
  54.         FutureUse   AS INTEGER
  55.     END TYPE
  56.  
  57.     TYPE CompInfo                   'Used by EtCPrint routine
  58.         ZipName     AS STRING * 67
  59.         FileName    AS STRING * 67
  60.         Operation   AS INTEGER
  61.         TotalSize   AS LONG
  62.         CurrentByte AS LONG
  63.         CompLen     AS LONG
  64.         CompMethod  AS INTEGER
  65.         Row         AS INTEGER
  66.         Column      AS INTEGER
  67.         CR          AS INTEGER
  68.     END TYPE
  69.  
  70. '-----------------User-level routines--------------------------------------
  71.  
  72. DECLARE FUNCTION EtArcType% (Handle%, Status%)
  73.  
  74. DECLARE FUNCTION EtArjDir% (Handle%, DirName$())
  75. DECLARE FUNCTION EtArjDirLong% (Handle%, DirStuff() AS ANY, DirName$())
  76. DECLARE FUNCTION EtArjCnt% (Handle%, Status%)
  77.  
  78. DECLARE FUNCTION EtLhaDir% (Handle%, DirName$())
  79. DECLARE FUNCTION EtLhaDirLong% (Handle%, DirStuff() AS ANY, DirName$())
  80. DECLARE FUNCTION EtLhaCnt% (Handle%, Status%)
  81.  
  82. DECLARE FUNCTION EtZipOpen% (FileName$, Mode%, Handle%)
  83. DECLARE SUB EtZipClose (Handle%)
  84.  
  85. DECLARE FUNCTION EtViewZip% (ArcFile$, Spec$())
  86.  
  87. DECLARE FUNCTION EtUnZip% (Handle%, Destination$, Spec$, Switch$)
  88. DECLARE FUNCTION EtZip% (Handle%, Spec$(), Switch$)
  89. DECLARE FUNCTION EtZipComment$ (Handle%, Status%)
  90. DECLARE FUNCTION EtZipNewComment% (Handle%, Comment$)
  91.  
  92. DECLARE FUNCTION EtZipCnt% (Handle%, Status%)
  93. DECLARE FUNCTION EtZipDir% (Handle%, DirName$())
  94. DECLARE FUNCTION EtZipDirLong% (Handle%, DirStuff() AS ANY, DirName$())
  95. DECLARE FUNCTION EtZipFileInfo%(Handle%, FileName$, FileInfo AS ANY)
  96.  
  97. DECLARE FUNCTION EtZipMem% (Segment%, Offset%, Length&, ZipHandle%, InternalName$, CompMethod%)
  98. DECLARE FUNCTION EtUnZipMem% (Segment%, Offset%, StartingOffset&, Length&, ZipHandle%, InternalName$)
  99.  
  100. DECLARE FUNCTION EtZipString% (Source$, ZipHandle%, InternalName$, CompMethod%)
  101. DECLARE FUNCTION EtUnZipString% (Dest$, StartingOffset&, Length&, ZipHandle%, InternalName$)
  102.  
  103. DECLARE FUNCTION EtArrayAddress%
  104. DECLARE FUNCTION EtZipArray% (ArrayAddr%, ZipHandle%, InternalName$, CompMethod%)
  105. DECLARE FUNCTION EtUnZipArray% (ArrayAddr%, StartingOffset&, Length&, ZipHandle%, InternalName$)
  106.  
  107. DECLARE FUNCTION EtFileDate$ (Date%)
  108. DECLARE FUNCTION EtFileTime$ (Time%)
  109.  
  110. DECLARE SUB EtCPrint (Info AS CompInfo, Msg$, Prompt$, Flag%)
  111. DECLARE SUB EtCPrintOff ()
  112. DECLARE SUB EtCPrintOn ()
  113. DECLARE FUNCTION EtCPrintIsOn% ()
  114.  
  115. '------------------------User Interface Routines------------------------
  116.  
  117. DECLARE SUB EtCLS ()
  118. DECLARE SUB EtDrawBox (Top%, Left%, Bottom%, Right%, Title$)
  119. DECLARE SUB EtDrawSetColor (Fg%, Bg%, BFg%, BBg%, SelFg%, SelBg%, BoxTyp%)
  120. DECLARE SUB EtDrawInit ()
  121. DECLARE SUB EtGetFileName (Title$, Text$, V%, H%, L%, MustExist%)
  122. DECLARE SUB EtInput (Title$, Text$, V%, H%, L%, Intype%, LegalChar$)
  123. DECLARE SUB EtMessage (Message$, Title$, Save%, WaitKey$, PressedKey%, Delay%, FirstRow%)
  124. DECLARE SUB EtPickBox (Top%, Left%, Bottom%, Right%, Title$, Sel$(), Save%, Selection%)
  125. DECLARE SUB EtPickBoxTag (Top%, Left%, Bottom%, Right%, Title$, Sel$(), Save%, Selection%, Tag%(), UseTags%)
  126. DECLARE SUB EtRestoreScreen (Scr%())
  127. DECLARE SUB EtSaveScreen (Scr%())
  128.  
  129.